TeX 1995 July/TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO/tex-k/tex-k-archive.past/tex-k-archive.gz/tex-k-archive/[e-mail]_Mon Dec 6 12:16:33 1993.msg

Internet Message Format | 1994-10-11 | 6KB

Received: from dutepp6.et.tudelft.nl by cs.umb.edu with SMTP id AA29257
  (5.65c/IDA-1.4.4 for <[e-mail]>); Mon, 6 Dec 1993 06:47:38 -0500
Received: by dutepp6.et.tudelft.nl id AA25978
  (5.67a/IDA-1.5 for [e-mail]); Mon, 6 Dec 1993 11:22:20 +0100
Date: Mon, 6 Dec 1993 11:16:33 +0100 (MET)
From: Richard Kooijman <[e-mail]>
Subject: Re: Getting Virtual Fonts to work
To: [e-mail]
In-Reply-To: <[e-mail]>
Message-Id: <[e-mail]>
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII

On Mon, 6 Dec 1993, Richard Kooijman wrote:

> Let me know if you want to have a copy of that MakeTeXPK. If there
> are a lot of requests I will post it here.


OK, here it is. I used xdvik's MakeTeXPK and put in the PS font
generation part of xdvi-beta's MakeTeXPK. Maybe some small edits
by me but nothing special.
You'll need ghostscript and its fonts.
BTW as default, xdvik only generates fonts if you specify +maketexpk on the
command-line or if you have set this in your .Xdefaults.
Some fonts may generate lots of warnings, I can't help that, seems like
certain (special) characters are not defined in those fonts.

Good luck.


Richard.
-------------------------------------------------------
#!/bin/sh
#
# MakeTeXPK -- make a new PK font, because one wasn't found.
#
# (If you change or delete the word `original' on the previous line,
# dvips won't install its MakeTeXPK over yours.)
#
# Parameters are:
#
#   name dpi bdpi magnification [mode]
#
#   `name' is the base name of the font, such as `cmr10'.
#   `dpi' is the resolution the font is needed at.
#   `bdpi' is the base resolution, useful for intuiting the mode to use.
#   `magnification' is a string to pass to MF as the value of `mag'.
#   `mode', if supplied, is the mode to use.
#
# This script must echo the name of the generated PK file (and nothing
# else) to standard output.

echo "Running MakeTeXPK $*." 1>&2

TEXDIR=/usr/local/lib/tex

# Where to put the new files.
DESTDIR=$TEXDIR/fonts/pk

# Postscript fonts map file.
MAPFILE=$TEXDIR/ps/psfonts.map

# If this directory doesn't exist, the Sauter stuff won't be attempted.
sauterdir=$TEXDIR/sauter

# TEMPDIR needs to be unique for each process because of the possibility
# of simultaneous processes running this script.
TEMPDIR=/tmp/mtpk.$$

NAME=$1
DPI=$2
BDPI=$3
MAG=$4
MODE=$5

umask 0

# If an explicit mode is not supplied, try to guess.
if test -z "$MODE"; then
  case "$BDPI" in
    85) MODE=sun;;
   118) MODE=lview;;
   300) MODE=CanonCX;;
  1270) MODE=LinotypeOneZeroZero;;
     *) echo "MakeTeXPK doesn't have a guess for $BDPI dpi devices." 1>&2
        echo "Put the mode in a config file, or update MakeTeXPK." 1>&2
        exit 1
  esac
fi

GFNAME=$NAME.$DPI'gf'
PKNAME=$NAME.$DPI'pk'

# Clean up on normal or abnormal exit
trap "cd /; rm -rf $TEMPDIR $DESTDIR/pktmp.$$" 0 1 2 15

# Do we have a GF file in the current directory?
if test -r $GFNAME; then
  echo "Running gftopk ./$GFNAME $PKNAME." 1>&2
  gftopk ./$GFNAME $PKNAME
  # Don't move the font; if the person knows enough to make fonts, they
  # know enough to have . in the font paths.
  echo $PKNAME
  exit 0
fi

# Do we have an F3 font?
# You will need Sun's f3tobm program, plus a program I wrote.
# See ftp.cs.umb.edu:private/f3totex.
dtrg=/u/zapf/dtrg
if test -r $dtrg/typescaler/fonts/f3b/$NAME.f3b; then
  echo "Trying f3topk -r $DPI $NAME." 1>&2
  PATH=$dtrg/src/`arch`/bin:$PATH
  export PATH
  cd $dtrg/fonts
  if f3topk -r $DPI $NAME; then
    echo $PKNAME
    exit 0
  else
    echo "f3topk failed." 1>&2
    exit 1
  fi
fi

# No special case applies.  Try Metafont.  Since we want to run it in a
# temporary directory, add the current directory to MFINPUTS.
MFINPUTS=`pwd`:${MFINPUTS}:
export MFINPUTS

test -d $TEMPDIR || mkdir $TEMPDIR
cd $TEMPDIR || exit 1

if test -r $DESTDIR/$PKNAME; then
  echo "$DESTDIR/$PKNAME already exists!" 1>&2
  echo $DESTDIR/$PKNAME
  exit 0
fi

# Which version of Metafont shall we use?
case $NAME in
  cm*) mf=cmmf;;
  *) mf=mf;;
esac

if egrep \^$NAME'([     ]|$)' $MAPFILE > /dev/null; then
  echo "Running gsftopk $NAME $DPI." 1>&2
  gsftopk $NAME $DPI 1>&2
else
  # Run Metafont.
  unset DISPLAY
  echo "Running $mf \mode:=$MODE; mag:=$MAG; scrollmode; input $NAME." 1>&2
  $mf "\mode:=$MODE; mag:=$MAG; scrollmode; input $NAME" </dev/null 1>&2

  if test $d $sauterdir && test $? -eq 1 && test $mf = cmmf; then
    # Perhaps no such MF source file, and it's CM.  Try Sauter's scripts.
    cd $sauterdir
    rootfont=`echo $NAME | sed 's/[0-9]*$//'`
    pointsize=`echo $NAME | sed 's/cm[a-z]*//'`
    make-mf $rootfont $pointsize
    echo "Trying interpolated/extrapolated (Sauter) CM source." 1>&2
    $mf "\mode:=$MODE; mag:=$MAG; scrollmode; input mf/$NAME" </dev/null
    if test $? -eq 0 && test -r $GFNAME; then
      mv $GFNAME $TEMPDIR
    fi
    rm -f $NAME.log mf/$NAME
    cd $TEMPDIR
  fi

  if test ! -r $GFNAME; then
    # Maybe it succeeded at DPI +- 1?
    test_dpi=`expr $DPI - 1`
    test_name=$NAME.${test_dpi}
    if test -r ${test_name}gf; then
      GFNAME=${test_name}gf
      PKNAME=${test_name}pk
    else
      test_dpi=`expr $DPI + 1`
      test_name=$NAME.${test_dpi}
      if test -r ${test_name}gf; then
        GFNAME=${test_name}gf
        PKNAME=${test_name}pk
      else
        echo "MakeTeXPK failed to make $GFNAME." 1>&2
        exit 1
      fi
    fi
  fi

  # We succeeded.  Make the PK file.
  gftopk ./$GFNAME $PKNAME
fi

test -d $DESTDIR \
  || mkdir $DESTDIR \
  || (echo "${DESTDIR}: Could not create directory." 1>&2; exit 1)

# Install the PK file carefully, since others may be doing the same
# as us simultaneously.
mv $PKNAME $DESTDIR/pktmp.$$ \
  || (echo "Could not mv $PKNAME $DESTDIR/pktmp.$$." 1>&2; exit 1)

cd $DESTDIR
mv pktmp.$$ $PKNAME
echo $DESTDIR/$PKNAME